home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1465copy.txt < prev    next >
Encoding:
Text File  |  1996-03-15  |  1.4 KB  |  40 lines
  1.   if newtitle = TRUE then
  2.   Eval("EraseDisplay(@" ^ title number ^ ")")
  3.   title number = "1465"
  4.   Company = "Simon and Schuster"
  5.   title = "The War in Vietnam"
  6.   Price = 00.00
  7.   Demo = false
  8.   Button1 = false
  9.   Button2 = false
  10.   Button3 = false
  11.   Button4 = false
  12.   system = "Windows 3.1/Windows 95/MAC"
  13.   Title Description = "Experience the war through the archives of America's premier
  14.   news organizations  CBS News and The New York Times. Features over 750
  15.   photos and more than 1,000 articles plus multimedia biographic essays. Visit
  16.   The Wall Memorial via a searchable database of Vietnam War casualties."
  17.   
  18.   -------------------------------------
  19.   dline = ""
  20.   counter = 0
  21.   repeat while dline <> title number
  22.   counter = counter + 1
  23.   dline = GetWord(1,   GetLine(titl,counter) )   
  24.   test(dline = title number, LineInTitle = counter)
  25.   end repeat 
  26.   starttitle = LineInTitle
  27.   num of titles shown = 6
  28.   endtitle = starttitle + num of titles shown - 1
  29.   titles = ""
  30.   title highlight = ""
  31.   repeat with counter = starttitle to endtitle
  32.   nextline = GetLine(titl,counter)
  33.   titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  34.   title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline,
  35.   6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  36.   end repeat
  37.   dpage = CurrentPageID
  38.   
  39.   newtitle = FALSE
  40.   end if